options(warn = -1)
options(readr.show_types = FALSE)
suppressMessages({
library(tidyverse)
library(dplyr)
library(stringr)
library(data.table)
library(mapview)
library(sf)
library(gt)
library(leaflet)
})
url <- "https://tonyfraser-data.s3.amazonaws.com/nyc-addresses/nyc_pluto_23v3_csv/pluto_23v3.csv"
pluto_path <- "./nogit_cache/_pluto_23v3.csv"
if (!file.exists(pluto_path)) {
download.file(url, pluto_path, mode = "wb")
}
pluto <- read_csv(pluto_path)
dfbrklyn<-filter(pluto,borocode=='3', pfirm15_flag=='1')
dfqueens<-filter(pluto,borocode=='4', pfirm15_flag=='1')
dfbronx<-filter(pluto,borocode=='2', pfirm15_flag=='1')
dfmanhattan<-filter(pluto,borocode=='1', pfirm15_flag=='1')
dfstaten<-filter(pluto,borocode=='5', pfirm15_flag=='1')
df_sample_Brooklyn<-sample_n(dfbrklyn,2192)
df_sample_Queens<-sample_n(dfqueens,2155)
df_sample_Bronx<-sample_n(dfbronx,1399)
df_sample_manhattan<-sample_n(dfmanhattan,1283)
df_sample_staten<-sample_n(dfstaten,2040)
df_sample_Brooklyn_flood<- df_sample_Brooklyn %>%
mutate(Brooklyn_Data= paste("Building Area: ", bldgarea,
"Lot Area: ", lotarea,
"Total Number of Units: ", unitstotal,
"Number of Buildings: ", numbldgs,
"Number of Floors: ", numfloors,
"Assessed Total: ", assesstot,
"Year Built: ", yearbuilt,
"Location: ",address))%>%mutate(County=paste("Kings County"))
df_sample_Queens_flood<- df_sample_Queens %>%
mutate(Queens_Data= paste("Building Area: ", bldgarea,
"Lot Area: ", lotarea,
"Total Number of Units: ", unitstotal,
"Number of Buildings: ", numbldgs,
"Number of Floors: ", numfloors,
"Assessed Total: ", assesstot,
"Year Built: ", yearbuilt,
"Location: ",address))%>%mutate(County=paste("Queens County"))
df_sample_Bronx_flood<- df_sample_Bronx %>%
mutate(Bronx_Data= paste("Building Area: ", bldgarea,
"Lot Area: ", lotarea,
"Total Number of Units: ", unitstotal,
"Number of Buildings: ", numbldgs,
"Number of Floors: ", numfloors,
"Assessed Total: ", assesstot,
"Year Built: ", yearbuilt,
"Location: ",address))%>%mutate(County=paste("Bronx County"))
df_sample_manhattan_flood<- df_sample_manhattan %>%
mutate(Manhattan_Data= paste("Building Area: ", bldgarea,
"Lot Area: ", lotarea,
"Total Number of Units: ", unitstotal,
"Number of Buildings: ", numbldgs,
"Number of Floors: ", numfloors,
"Assessed Total: ", assesstot,
"Year Built: ", yearbuilt,
"Location: ",address))%>%mutate(County=paste("New York County"))
df_sample_staten_flood<- df_sample_staten %>%
mutate(Staten_Island_Data= paste("Building Area: ", bldgarea,
"Lot Area: ", lotarea,
"Total Number of Units: ", unitstotal,
"Number of Buildings: ", numbldgs,
"Number of Floors: ", numfloors,
"Assessed Total: ", assesstot,
"Year Built: ", yearbuilt,
"Location: ",address))%>%mutate(County=paste("Richmond County"))
m_df_sample_staten_flood<-mapview(df_sample_staten_flood,crs = 4269, xcol = "longitude", ycol = "latitude",zcol="County", legend = TRUE, popup="Staten_Island_Data", grid = FALSE, layer.name = "Richmond County", col.regions = "red" )
m_df_sample_manhattan_flood<-mapview(df_sample_manhattan_flood,crs = 4269, xcol = "longitude", ycol = "latitude", zcol="County",popup="Manhattan_Data",legend = TRUE, grid = FALSE,layer.name = "New York County", col.regions = "green" )
m_df_sample_Bronx_flood<-mapview(df_sample_Bronx_flood,crs = 4269, xcol = "longitude", ycol = "latitude",zcol="County", legend = TRUE, popup="Bronx_Data",grid = FALSE,layer.name = "Bronx County", col.regions = "blue" )
m_df_sample_Queens_flood<-mapview(df_sample_Queens_flood,crs = 4269, xcol = "longitude", ycol = "latitude",zcol="County", legend = TRUE, popup="Queens_Data",grid = FALSE , layer.name = "Queens County", col.regions = "orange" )
m_df_sample_Brooklyn_flood<-mapview(df_sample_Brooklyn_flood,crs = 4269, xcol = "longitude", ycol = "latitude",zcol="County", legend = TRUE, popup="Brooklyn_Data", grid = FALSE,layer.name = "Kings County", col.regions = "black")
m_df_sample_Brooklyn_flood+m_df_sample_Queens_flood+m_df_sample_Bronx_flood+m_df_sample_manhattan_flood+m_df_sample_staten_flood
```